home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
441
/
dlibs12
/
memavail.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-11-23
|
645b
|
33 lines
#include <osbind.h>
#include <stddef.h>
#define MAXBLK 16
#define FREE 0x00
#define USED 0x80
extern char *_mblk[]; /* major memory blocks */
long memavail()
{
register int i;
register long n, tsiz = 0L, **p, *q;
for(i=0; i<MAXBLK; ++i)
{
if((p = ((long **) _mblk[i])) == NULL)
continue; /* skip unavailable heaps */
while(q = *p)
{
n = *q;
if(n > tsiz) /* largest block so far */
tsiz = n;
p = ((long **) (q + 1));
}
}
if((n = Malloc(-1L)) < 1024)
return(tsiz);
n -= (1024L + 16L);
n &= ~0x1FFL; /* system memory available */
return((n > tsiz) ? n : tsiz);
}